home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbsteel4.arc / TEMP.BAS < prev    next >
BASIC Source File  |  1980-06-17  |  512b  |  21 lines
  1. 55 ON ERROR GOTO 64200
  2. 315 ON ERROR GOTO 64000
  3. 500 REM  CLEAR SCREEN
  4. 510 CALL CSCREEN
  5. 520 RETURN
  6. 64000 REM
  7. 64010 PRINT " ERROR NUMBER ";ERR ; " ON LINE ";ERL
  8. 64070 CLOSE 
  9. 64075 GOSUB 53000
  10. 64080 PRINT " PRESS ANY KEY TO CONTINUE"
  11. 64090 IF INKEY$ = "" THEN 64090
  12. 64100 RESUME 20000
  13. 64200 REM
  14. 64210 PRINT " ERROR NUMBER ";ERR ; " ON LINE ";ERL
  15. 64270 CLOSE 
  16. 64280 PRINT " PRESS ANY KEY TO CONTINUE"
  17. 64290 IF INKEY$ = "" THEN 64290
  18. 64300 RESUME 70 
  19.  ; " ON LINE ";ERL
  20. 64270 CLOSE 
  21. 64280 PRINT "